  ADO   MsFlexGrid

           Grid       DbGrid  MSHFlexGrid

      MsFlexGrid

1-      (General)   
 Dim MyDb As New ADODB.Connection
 Dim rs As New ADODB.Recordset

2-         :
Private Sub Form_Load()
   MyDb.Provider = "Microsoft.JET.OLEDB.4.0;"
   MyDb.Open App.Path & "\Db1.mdb "
   rs.Open "table1", MyDb, adOpenStatic, adLockPessimistic
   DrawFlex
End Sub
         Access 
   MyDB         db1.mdb
   RS   Table1   
    DrawFlex

3-          MsFlexGrid    RS      

    :
Private Sub DrawFlex()
Dim R As Integer
   With MsFlexGrid1
       .Clear
       .AllowUserResizing = flexResizeColumns
       .FixedCols = 0
       .FixedRows = 1

       '      
       .Cols = rs.Fields.Count 

       '                
       .Rows = rs.RecordCount + 1 

       '   
       .Row = 0
       For R = 0 To .Cols - 1
           .Col = R
           .Text = rs.Fields(R).Name
       Next R

       '   
       rs.MoveFirst
       .Row = 0
       Do Until rs.EOF
           .Row = .Row + 1
           For R = 0 To .Cols - 1
               .Col = R
               A = rs.Fields(R).Value
               A = IIf(IsNull(A), "", A)
               .Text = A
           Next R
          rs.MoveNext
       Loop
   End With
End Sub     

 
